(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5277,        136]
NotebookOptionsPosition[      4853,        120]
NotebookOutlinePosition[      5195,        135]
CellTagsIndexPosition[      5152,        132]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"TruncatedPolynomial", "[", 
   RowBox[{"m_", ",", "mth_", ",", "a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"m", "-", "mth"}], ")"}], "a"], 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "b"}], " ", "m"}], "-", 
     RowBox[{"c", " ", 
      SuperscriptBox["m", "2"]}]}], "]"}]}]}], "\n", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"TruncatedPolynomial", "[", 
      RowBox[{"m", ",", ".987", ",", "a", ",", "b", ",", "c"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", ".98", ",", "1.2"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "5.2"}], "}"}], ",", 
     RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", ".5"}], "}"}], ",", 
     RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.766358511754209*^9, 3.766358683296423*^9}, {
  3.766365664839301*^9, 3.7663656844991035`*^9}, {3.766365876621784*^9, 
  3.766366154199546*^9}, {3.766366545964055*^9, 3.7663665856076527`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"999757ea-7747-4e26-9aed-e5335060b443"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 3.499999999999943, $CellContext`b$$ = 
    89., $CellContext`c$$ = -6.999999999999886, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 5.2}, -100, 100}, {{
       Hold[$CellContext`b$$], 1}, -100, 100}, {{
       Hold[$CellContext`c$$], 0.5}, -100, 100}}, Typeset`size$$ = {
    360., {98., 103.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$23021$$ = 
    0, $CellContext`b$23022$$ = 0, $CellContext`c$23023$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 5.2, $CellContext`b$$ = 
        1, $CellContext`c$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$23021$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$23022$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$23023$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`TruncatedPolynomial[$CellContext`m, 
         0.987, $CellContext`a$$, $CellContext`b$$, $CellContext`c$$], \
{$CellContext`m, 0.98, 1.2}], 
      "Specifications" :> {{{$CellContext`a$$, 5.2}, -100, 
         100}, {{$CellContext`b$$, 1}, -100, 
         100}, {{$CellContext`c$$, 0.5}, -100, 100}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {212., 218.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.766358772616188*^9, 3.7663588235091114`*^9, 3.766358903047152*^9, {
   3.7663589433507957`*^9, 3.7663589979939055`*^9}, {3.7663591420702567`*^9, 
   3.7663591431618414`*^9}, {3.766365660985964*^9, 3.766365685559213*^9}, {
   3.766365997301463*^9, 3.766366154581662*^9}, 3.766366463629078*^9, {
   3.766366501805363*^9, 3.7663665181140704`*^9}, {3.76636656381854*^9, 
   3.7663666637176266`*^9}},
 CellLabel->"Out[8]=",ExpressionUUID->"8cdc5165-1906-4130-90d3-a98f28bd9643"]
}, Open  ]]
},
WindowSize->{666, 536},
WindowMargins->{{Automatic, -7}, {-7, Automatic}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1564, 42, 147, "Input",ExpressionUUID->"999757ea-7747-4e26-9aed-e5335060b443"],
Cell[2147, 66, 2690, 51, 449, "Output",ExpressionUUID->"8cdc5165-1906-4130-90d3-a98f28bd9643"]
}, Open  ]]
}
]
*)

